From ae29e69d873eb0f4acf6babdb161105d433a476f Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 2 Oct 2006 23:23:25 +0000 Subject: [PATCH] =?utf8?q?(eval,=20view-and-eval)=20:?= =?utf8?q?=20Use=20the=20interactive=20spec=20of=20`eval-expression'.=20?= =?utf8?q?=20From=20Denis=20St=EF=BF=BD=EF=BF=BD=20.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ibuf-ext.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 292e158c097..4ab7b9eda41 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -370,7 +370,11 @@ With numeric ARG, enable auto-update if and only if ARG is positive." "Evaluate FORM in each of the buffers. Does not display the buffer during evaluation. See `ibuffer-do-view-and-eval' for that." - (:interactive "xEval in buffers (form): " + (:interactive + (list + (read-from-minibuffer + "Eval in buffers (form): " + nil read-expression-map t 'read-expression-history)) :opstring "evaluated in" :modifier-p :maybe) (eval form)) @@ -379,7 +383,11 @@ Does not display the buffer during evaluation. See (define-ibuffer-op view-and-eval (form) "Evaluate FORM while displaying each of the marked buffers. To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." - (:interactive "xEval viewing buffers (form): " + (:interactive + (list + (read-from-minibuffer + "Eval viewing in buffers (form): " + nil read-expression-map t 'read-expression-history)) :opstring "evaluated in" :complex t :modifier-p :maybe) -- 2.30.2